home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_toolkit.lha / routines / EDATE < prev    next >
Text File  |  1997-04-05  |  160b  |  3 lines
  1. EDATE: procedure;arg da,mo;if mo="I" then da=date("s",da,"i")
  2.   return left(date("w",da,"s"),3)right("  "strip(translate(date("n",da,"s"),"-"," "),"L","0"),12)
  3.